home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / FredFish PD 308.adf / FReq / Examples / View < prev    next >
Text File  |  1990-01-18  |  659b  |  28 lines
  1. /* Show (rexx)  -  uses the C:Show command to display pictures */
  2.  
  3. /* ** Note **  You can use any IFF display program.  Just call it Show
  4.                and put it in your C: directory */
  5.  
  6. if ~(Show('P', 'FileRequester')) then
  7.     do
  8.     ADDRESS COMMAND "C:Run <NIL: >NIL: DEVS:Freq <NIL: >NIL:"
  9.     ADDRESS COMMAND "C:WaitForPort FileRequester"
  10.     if ~(Show('P', 'FileRequester')) then
  11.         exit
  12.     end
  13.  
  14. OPTIONS RESULTS
  15. ADDRESS "FileRequester"
  16. 'SetFileName'            /* clear the file name */
  17. more = "TRUE"
  18. do while more = "TRUE"
  19.     'SetTitle Select a Picture to View'
  20.     'DisplayDef'
  21.     'GETFILENAME'
  22.     if (RC = 0) then
  23.         ADDRESS COMMAND "C:Show" Result
  24.     else
  25.         more = "FALSE"
  26.     end
  27. exit
  28.